home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 25 / Cream of the Crop 25.iso / bbs / pcsuni1.zip / HOHO302.ZIP / HOHAUS1.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1997-03-24  |  11KB  |  438 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     String   STRING001
  27.     String   STRING002
  28.     String   STRING003
  29.     String   STRING004
  30.     String   STRING005
  31.     String   STRING006
  32.     String   STRING007
  33.     String   STRING008
  34.     String   STRING009
  35.     String   STRING010
  36.  
  37. ;------------------------------------------------------------------------------
  38.  
  39.     STRING005 = String(PcbNode())
  40.     If (PcbNode() == 0) STRING005 = "A"
  41.     INTEGER007 = ToInteger(GetEnv(STRING005 + "RECNO"))
  42.     STRING002 = Random(1000) + "X" + STRING005 + ".NDX"
  43.     DOpen 1, PPEPath() + "HOHAUS.DBF", 0
  44.     DTop 1
  45.     DnCreate 1, PPEPath() + STRING002, 0
  46.     DCloseAll
  47.     STRING006 = "@X10┌─────────────────────────────────────────────────────────────────────────────@X19┐@X0F"
  48.     STRING007 = "@X10└@X19─────────────────────────────────────────────────────────────────────────────@X19┘@X0F"
  49.     STRING008 = "@X40┌─────────────────────────────────────────────────────────────────────────────@X4C┐@X0F"
  50.     STRING009 = "@X40└@X4C─────────────────────────────────────────────────────────────────────────────┘@X0F"
  51.     :LABEL001
  52.     DCloseAll
  53.     DOpen 0, PPEPath() + "HOHAUS.DBF", 0
  54.     DGo 0, INTEGER007
  55.     DOpen 1, PPEPath() + "HOHAUS.DBF", 0
  56.     DTop 1
  57.     DnOpen 1, PPEPath() + STRING002
  58.     Gosub LABEL013
  59.     If (DGet(0, "C_ACT_L") < 1) Then
  60.         PrintLn STRING008
  61.         PrintLn "@X40│        @X4AYOU DON'T HAVE ANY OFFENSIVE ACTIONS LEFT FOR THIS SESSION  @POS:79@@X4C│@X07"
  62.         PrintLn STRING009
  63.         Delay (2 * 182) / 10
  64.     Else
  65.         PrintLn 
  66.         PrintLn STRING006
  67.         PrintLn "@X10│  @X30Offensive Actions!@X1B      @X1EAttempts Left:@X1B ", DGet(0, "C_ACT_L"), "       @X1EMuscle Left: @X1B", DGet(0, "MUSCLE"), " @POS:79@@X19│@X07"
  68.         PrintLn "@X10│ @POS:79@@X19│@X07"
  69.         PrintLn "@X10│ @X1C[@X1B@X1ES@X1C]@X1B@X1B Steal money from another player     @X1C[@X1BW@X1C]@X1B Steal a whore @POS:79@@X19│@X07"
  70.         PrintLn "@X10│ @X1C[@X1B@X1EH@X1C]@X1B@X1B Sabotage another players house      @X1C[@X1BC@X1C] @X1BRat someone out to the cops@POS:79@@X19│@X07"
  71.         PrintLn "@X10│ @X1C[@X1B@X1EI@X1C]@X1B@X1B Spy on another player@POS:79@@X19│@X07"
  72.         PrintLn "@X10│ @X1C[@X1B@X1EG@X1C]@X1B@X1B Get Muscle                          @X1C[@X1AENTER@X1B@X1C]@X1B Main Menu @POS:79@@X19│@X07"
  73.         PrintLn STRING007
  74.         Newlines 2
  75.         InputStr "Your choice: _", STRING001, 15, 1, "SHIGWC", 0 + 8
  76.         If (STRING001 == "") Goto LABEL015
  77.         Select Case (STRING001)
  78.             Case "S"
  79.                 Goto LABEL002
  80.             Case "H"
  81.                 Goto LABEL003
  82.             Case "I"
  83.                 Goto LABEL004
  84.             Case "G"
  85.                 Goto LABEL005
  86.             Case "W"
  87.                 Goto LABEL006
  88.             Case "C"
  89.                 Goto LABEL007
  90.         End Select
  91.         :LABEL002
  92.         Gosub LABEL010
  93.         Gosub LABEL013
  94.         DGo 1, DGet(0, "TARGET")
  95.         If (Random(3) == 1) Then
  96.             PrintLn STRING008
  97.             PrintLn "@X40│           @X4BHe spotted your soldiers, and X'caped them @POS:79@@X4C│@X07"
  98.             PrintLn STRING009
  99.             STRING010 = Trim(DGet(0, "HANDLE"), " ") + " Tried to rob you!"
  100.             Gosub LABEL014
  101.             Goto LABEL001
  102.         Endif
  103.         DGet 1, "CASH", INTEGER005
  104.         DPut 1, "CASH", 0
  105.         DPut 0, "CASH", DGet(0, "CASH") + INTEGER005
  106.         DPut 0, "C_ACT_L", DGet(0, "C_ACT_L") - 1
  107.         STRING010 = Trim(DGet(0, "HANDLE"), " ") + " Robbed you of $" + String(INTEGER005)
  108.         Gosub LABEL014
  109.         If (INTEGER005 < 1) Then
  110.             PrintLn STRING008
  111.             PrintLn "@X40│                      @X4EHe wasn't carrying any cash!  @POS:79@@X4C│@X0F"
  112.             PrintLn STRING009
  113.             Delay (2 * 182) / 10
  114.             Goto LABEL001
  115.         Endif
  116.         PrintLn STRING006
  117.         PrintLn "@X10│                 @X1BYou got@X1A ", INTEGER005, "@X1B in cash from him!  @POS:79@@X19│@X07"
  118.         PrintLn STRING007
  119.         Delay (2 * 182) / 10
  120.         Goto LABEL001
  121.         :LABEL003
  122.         Gosub LABEL010
  123.         Gosub LABEL013
  124.         DGo 1, DGet(0, "TARGET")
  125.         DPut 0, "C_ACT_L", DGet(0, "C_ACT_L") - 1
  126.         INTEGER001 = DGet(1, "DEFENSE")
  127.         INTEGER003 = DGet(1, "MUSCLE")
  128.         INTEGER004 = DGet(1, "DEFENSE") - DGet(0, "DEFENSE") + Random(100)
  129.         If (INTEGER004 > 50) Then
  130.             INTEGER005 = (INTEGER004 - 50) / 10
  131.             If (INTEGER005 > DGet(0, "MUSCLE")) INTEGER005 = DGet(0, "MUSCLE")
  132.             PrintLn STRING008
  133.             PrintLn "@X40│                         @X4EHe was waiting for you!  @POS:79@@X4C│@X0F"
  134.             PrintLn "@X40│ @POS:79@@X4C│@X0F"
  135.             PrintLn "@X40│                  @X4AYou lost @X4B", INTEGER005, "@X4A Soldiers in the attempt! @POS:79@@X4C│@X0F"
  136.             PrintLn STRING009
  137.             DPut 0, "MUSCLE", DGet(0, "MUSCLE") - INTEGER005
  138.             STRING010 = Trim(DGet(0, "HANDLE"), " ") + " Wrecked one of your houses!"
  139.             Gosub LABEL014
  140.             Delay (2 * 182) / 10
  141.             Goto LABEL001
  142.         Endif
  143.         If (INTEGER004 <= 50) Then
  144.             INTEGER005 = (INTEGER004 + 50) / 10
  145.             If (INTEGER005 > INTEGER003) INTEGER005 = INTEGER003
  146.             PrintLn STRING006
  147.             PrintLn "@X10│                  @X1CYou caught him completely by surprise!  @POS:79@@X19│@X07"
  148.             PrintLn "@X10│ @POS:79@@X19│@X07"
  149.             PrintLn "@X10│                         @X1BHe lost @X9C", INTEGER005, " @X1BSoldiers!  @POS:79@@X19│@X07"
  150.             PrintLn STRING007
  151.             DPut 1, "MUSCLE", DGet(1, "MUSCLE") - INTEGER005
  152.             If (DGet(1, "LEVEL") > 1) DPut 1, "LEVEL", DGet(1, "LEVEL") - 1
  153.             STRING010 = Trim(DGet(0, "HANDLE"), " ") + " Wrecked one of your houses!"
  154.             Gosub LABEL014
  155.             Delay (2 * 182) / 10
  156.             Goto LABEL001
  157.             :LABEL004
  158.             Gosub LABEL010
  159.             Gosub LABEL013
  160.             DGo 1, DGet(0, "TARGET")
  161.             INTEGER005 = Random(2)
  162.             If (INTEGER005 == 1) Then
  163.                 If (Exist(PPEPath() + DGet(1, "MAIL_NUM") + ".MSG")) Then
  164.                     DispFile PPEPath() + DGet(1, "MAIL_NUM") + ".MSG", 2 + 1 + 4
  165.                     Wait
  166.                     Goto LABEL001
  167.                 Endif
  168.             Endif
  169.             If ((INTEGER005 <> 1) && !Exist(PPEPath() + DGet(1, "MAIL_NUM") + ".MSG")) Then
  170.                 PrintLn STRING008
  171.                 PrintLn "@X40│                   @X4EYOUR SPY ATTEMPT WAS UNSUCCESFUL @POS:79@@X4C│@X0F"
  172.                 PrintLn STRING009
  173.                 Delay (2 * 182) / 10
  174.                 Goto LABEL001
  175.             Endif
  176.             INTEGER005 = Random(10)
  177.             If (INTEGER005 == 8) Then
  178.                 STRING010 = Trim(DGet(0, "HANDLE"), " ") + " Has a tap on your phone!"
  179.                 Gosub LABEL014
  180.                 Goto LABEL001
  181.             Endif
  182.             PrintLn STRING008
  183.             PrintLn "@X40│                   @X4EYOUR SPY ATTEMPT WAS UNSUCCESFUL @POS:79@@X4C│@X0F"
  184.             PrintLn "@X40│                   @X4AYOUR OPPONENT HAS BEEN NOTIFIED!  @POS:79@@X4C│@X0F"
  185.             PrintLn STRING009
  186.             STRING010 = Trim(DGet(0, "HANDLE"), " ") + " Tried to spy on you!"
  187.             Gosub LABEL014
  188.             Delay (3 * 182) / 10
  189.             Goto LABEL001
  190.             :LABEL005
  191.             Gosub LABEL013
  192.             If (DGet(0, "MUSCLE") > 9) Then
  193.                 PrintLn STRING008
  194.                 PrintLn "@X40│                   @X4EYOU CAN'T HANDLE ANY MORE MUSCLE @POS:79@@X4C│@X0F"
  195.                 PrintLn STRING009
  196.                 Delay (2 * 182) / 10
  197.                 Goto LABEL001
  198.             Endif
  199.             If (DGet(0, "CASH") < DGet(0, "LEVEL") * 100) Then
  200.                 PrintLn STRING008
  201.                 PrintLn "@X40│             @X4EYOU DON'T HAVE ENOUGH CASH ON HAND TO BUY MUSCLE  @POS:79@@X4C│@X0F"
  202.                 PrintLn STRING009
  203.                 Delay (2 * 182) / 10
  204.                 Goto LABEL001
  205.             Endif
  206.             DPut 0, "CASH", DGet(0, "CASH") - DGet(0, "LEVEL") * 100
  207.             DPut 0, "MUSCLE", DGet(0, "MUSCLE") + 1
  208.             DPut 0, "C_ACT_L", DGet(0, "C_ACT_L") - 1
  209.             Goto LABEL001
  210.             :LABEL006
  211.             If (INTEGER006 > 9) Then
  212.                 PrintLn STRING008
  213.                 PrintLn "@X40│                   @X4EYOU CAN'T HANDLE ANY MORE WHORES  @POS:79@@X4C│@X0F"
  214.                 PrintLn STRING009
  215.                 Delay (2 * 182) / 10
  216.                 Goto LABEL001
  217.             Endif
  218.             Gosub LABEL010
  219.             Gosub LABEL013
  220.             DGo 1, DGet(0, "TARGET")
  221.             DPut 0, "C_ACT_L", DGet(0, "C_ACT_L") - 1
  222.             PrintLn STRING006
  223.             InputStr "@X10│              @X1EWhich whore do you want to steal? [1-10] _@POS:79@@X19│@X07", INTEGER001, 15, 2, Mask_Num(), 0
  224.             PrintLn STRING007
  225.             If ((INTEGER001 > 10) || (INTEGER001 == 0)) Goto LABEL006
  226.             STRING001 = Strip("G" + String(INTEGER001), " ")
  227.             If (DGet(1, STRING001) > 0) Then
  228.                 STRING003 = Strip("G" + 10 - INTEGER006, " ")
  229.                 DPut 0, STRING003, DGet(1, STRING001)
  230.                 DPut 0, "KILLS", DGet(0, "KILLS") + 1
  231.                 DPut 1, STRING001, 0
  232.             Endif
  233.             STRING010 = Trim(DGet(0, "HANDLE"), " ") + " Swiped one of your whores!"
  234.             Gosub LABEL014
  235.             Goto LABEL001
  236.             :LABEL007
  237.             Gosub LABEL010
  238.             Gosub LABEL013
  239.             DGo 1, DGet(0, "TARGET")
  240.             DPut 0, "C_ACT_L", DGet(0, "C_ACT_L") - 1
  241.             INTEGER005 = Random(10)
  242.             If (INTEGER005 == 8) PrintLn STRING008
  243.             PrintLn "@X40│                @X4EYOU GOT YOURSELF NAILED IN A STING OPERATION! @POS:79@@X4C│@X07"
  244.             PrintLn "@X40│ @POS:79@@X4C│@X07"
  245.             If (DGet(0, "LEVEL") > 1) PrintLn "@X40│                         @X4DYOU LOST A HOUSE LEVEL! @POS:79@@X4C│@X07"
  246.             PrintLn "@X40│                     @X40YOUR BRIBED COPS WERE IN ON IT! @POS:79@@X4C│@X07"
  247.             If (DGet(0, "MUSCLE") > 0) PrintLn "@X40│                 @X4AONE OF YOUR BOUNCERS WAS SHOT BY THE COPS!  @POS:79@@X4C│@X07"
  248.             PrintLn STRING009
  249.             If (DGet(0, "LEVEL") > 1) DPut 0, "LEVEL", DGet(0, "LEVEL") - 1
  250.             DPut 0, "BRIBEAMT", 0
  251.             If (DGet(0, "MUSCLE") > 0) DPut 0, "MUSCLE", DGet(0, "MUSCLE") - 1
  252.             STRING010 = Trim(DGet(0, "HANDLE"), " ") + " Ratted you out to the cops!"
  253.             Gosub LABEL014
  254.             INTEGER005 = Random(10)
  255.             If (INTEGER005 == 8) Then
  256.                 DGet 0, "HANDLE", STRING004
  257.                 DTop 1
  258.                 :LABEL008
  259.                 If (DEof(1)) Goto LABEL009
  260.                 DGet 1, "MAIL_NUM", STRING003
  261.                 FOpen 1, PPEPath() + Trim(STRING003, " ") + ".Msg", 2, 0
  262.                 FPutLn 1, "From: Snitch Central on " + String(Date())
  263.                 FPutLn 1, Mixed(STRING004), " snitched to the cops, watch out for this Scumbag!"
  264.                 FPutLn 1, "──────────────────────────────────────────────────────────────────────────────"
  265.                 FClose 1
  266.                 DSkip 1, 1
  267.                 Goto LABEL008
  268.             Endif
  269.             :LABEL009
  270.             Delay (2 * 182) / 10
  271.             Goto LABEL001
  272.         Endif
  273.         PrintLn STRING006
  274.         PrintLn "@X10│    @X1EHE GOT NAILED ON YOUR INFORMATION!  @POS:79@@X19│@X07"
  275.         PrintLn "@X10│  @POS:79@@X19│@X07"
  276.         If (DGet(1, "LEVEL") > 1) PrintLn "@X10│    @X1CHE LOST A HOUSE LEVEL!                                              @X19│@X07"
  277.         PrintLn "@X10│    @X1CHIS BRIBED COPS WERE IN ON IT! @POS:79@@X19│@X07"
  278.         If (DGet(1, "MUSCLE") > 0) PrintLn "@X10│    @X1EONE OF HIS BOUNCERS WAS SHOT BY THE COPS!  @POS:79@@X19│@X07"
  279.         PrintLn STRING007
  280.         If (DGet(1, "LEVEL") > 1) DPut 1, "LEVEL", DGet(1, "LEVEL") - 1
  281.         DPut 1, "BRIBEAMT", 1
  282.         If (DGet(1, "MUSCLE") > 1) DPut 1, "MUSCLE", DGet(1, "MUSCLE") - 1
  283.         STRING010 = Trim(DGet(0, "HANDLE"), " ") + " Ratted you out to the cops!"
  284.         Gosub LABEL014
  285.         Delay (2 * 182) / 10
  286.         Goto LABEL001
  287.         :LABEL010
  288.         DPut 0, "TARGET", 0
  289.         Backup 80
  290.         ClrEol
  291.         Print "@X0APlayer to harass@X0E: .........................@X0F"
  292.         Backup 25
  293.         InputStr "_", STRING004, 10, 25, Mask_Ascii(), 0 + 8
  294.         If (STRING004 == "") Goto LABEL001
  295.         DTop 1
  296.         :LABEL011
  297.         If (DEof(1)) Goto LABEL012
  298.         If (Trim(DGet(1, "HANDLE"), " ") == Trim(STRING004, " ")) Then
  299.             DPut 0, "TARGET", DRecNo(1)
  300.             Return
  301.         Endif
  302.         DSkip 1, 1
  303.         Goto LABEL011
  304.         :LABEL012
  305.         Backup 80
  306.         ClrEol
  307.         PrintLn STRING008
  308.         PrintLn "@X40│            @X4EThat user is either out of town or not in the game @POS:79@@X4C│@X07"
  309.         PrintLn STRING009
  310.         Delay (2 * 182) / 10
  311.         DPut 0, "TARGET", 0
  312.         Goto LABEL001
  313.         :LABEL013
  314.         INTEGER006 = 0
  315.         For INTEGER002 = 1 To 10
  316.             STRING001 = Strip("G" + String(INTEGER002), " ")
  317.             If (DGet(0, STRING001) > 0) INTEGER006 = INTEGER006 + 1
  318.         Next
  319.         DPut 0, "DEFENSE", (DGet(0, "KILLS") + DGet(0, "MUSCLE") + DGet(0, "BANKED") + DGet(0, "BRIBEAMT") + INTEGER006) * DGet(0, "LEVEL")
  320.         DPut 0, "NETWORTH", DGet(0, "CASH") + DGet(0, "BANKED") + DGet(0, "LEVEL") * (DGet(0, "MUSCLE") * 100) + (INTEGER006 * 100) * DGet(0, "LEVEL")
  321.         If (DGet(0, "CONDOMS") < 1) DPut 0, "CONDOMS", 0
  322.         Cls
  323.         If (FALSE) Then
  324.             PrintLn STRING006
  325.             PrintLn "@X10│@X1F", Mixed(Trim(DGet(0, "HANDLE"), " ")), "'s Holdings@POS:40@@X13Networth@X10:@X1A ", Trim(DGet(0, "NETWORTH"), " "), "@X13@POS:65@Level@X10:@X1E ", Trim(DGet(0, "LEVEL"), " "), "@POS:79@@X19│@X0F"
  326.             PrintLn STRING007
  327.         Endif
  328.         PrintLn STRING006
  329.         PrintLn "@X10│@X13Defensive status@X10:@X1E ", Trim(DGet(0, "DEFENSE"), " "), "@POS:25@@X13Condom Count @X10:@X1C ", Trim(DGet(0, "CONDOMS"), " "), "@X13@POS:50@Cronies@X10:@X1E ", Trim(DGet(0, "MUSCLE"), " "), "@POS:64@@X13Whores@X10:@X1C ", INTEGER006, "@POS:79@@X19│@X0F"
  330.         PrintLn STRING007
  331.         PrintLn "@X10┌──────────────────────────────@X19┐@X10┌────────────────────@X19┐@X10┌───────────────────────@X19┐@X0F"
  332.         PrintLn "@X10│@X13Offensive acts left@X10:@X9C ", Trim(DGet(0, "C_ACT_L"), " "), "@X19@POS:32@│@X10│ ", "@X13@POS:20@Banked@X10:@X1A ", Trim(DGet(0, "BANKED"), " "), "@POS:54@@X19│@X10│", "@X13 Played@X1E ", Trim(DGet(0, "PLAYED"), " "), "@X13 Times", "@POS:79@@X19│@X0F"
  333.         PrintLn "@X10└@X19──────────────────────────────┘@X10└@X19────────────────────┘@X10└@X19───────────────────────┘@X0F"
  334.         Return
  335.         :LABEL014
  336.         DGo 1, DGet(0, "TARGET")
  337.         DGet 1, "MAIL_NUM", STRING003
  338.         FAppend 1, PPEPath() + Trim(STRING003, " ") + ".Msg", 2, 0
  339.         FPutLn 1, "@X0EFrom: @X0CSnitch Central @X0Eon@X09 " + String(Date())
  340.         FPutLn 1, "@X0C──────────────────────────────────────────────────────────────────────────────"
  341.         FPutLn 1, "@X0A" + STRING010
  342.         FPutLn 1, "@X0C──────────────────────────────────────────────────────────────────────────────"
  343.         FCloseAll
  344.         Return
  345.     Endif
  346.     :LABEL015
  347.     DCloseAll
  348.     Delete PPEPath() + STRING002
  349.     End
  350.  
  351. ;------------------------------------------------------------------------------
  352. ;
  353. ; Usage report (before postprocessing)
  354. ;
  355. ; ■ Statements used :
  356. ;
  357. ;    1       End
  358. ;    1       Cls
  359. ;    2       ClrEol
  360. ;    1       Wait
  361. ;    60      Goto 
  362. ;    35      Let 
  363. ;    1       Print 
  364. ;    75      PrintLn 
  365. ;    43      If 
  366. ;    1       DispFile 
  367. ;    1       FOpen 
  368. ;    1       FAppend 
  369. ;    1       FClose 
  370. ;    7       FPutLn 
  371. ;    1       Delete 
  372. ;    3       InputStr 
  373. ;    21      Gosub 
  374. ;    3       Return
  375. ;    13      Delay 
  376. ;    1       Newlines 
  377. ;    3       Backup 
  378. ;    1       FCloseAll
  379. ;    3       DOpen 
  380. ;    3       DCloseAll
  381. ;    1       DnCreate 
  382. ;    1       DnOpen 
  383. ;    4       DTop 
  384. ;    7       DGo 
  385. ;    2       DSkip 
  386. ;    4       DGet 
  387. ;    27      DPut 
  388. ;
  389. ;
  390. ; ■ Functions used :
  391. ;
  392. ;    20      *
  393. ;    15      /
  394. ;    54      +
  395. ;    16      -
  396. ;    16      ==
  397. ;    1       <>
  398. ;    5       <
  399. ;    2       <=
  400. ;    17      >
  401. ;    2       >=
  402. ;    26      !
  403. ;    3       &&
  404. ;    2       ||
  405. ;    22      Trim()
  406. ;    7       Random()
  407. ;    2       Date()
  408. ;    3       Strip()
  409. ;    6       String()
  410. ;    1       Mask_Num()
  411. ;    1       Mask_Ascii()
  412. ;    11      PPEPath()
  413. ;    2       PcbNode()
  414. ;    1       GetEnv()
  415. ;    2       Exist()
  416. ;    1       ToInteger()
  417. ;    2       Mixed()
  418. ;    2       DEof()
  419. ;    1       DRecNo()
  420. ;    80      DGet()
  421. ;
  422. ;------------------------------------------------------------------------------
  423. ;
  424. ; Analysis flags : No flag
  425. ;
  426. ;------------------------------------------------------------------------------
  427. ;
  428. ; Postprocessing report
  429. ;
  430. ;    1       For/Next
  431. ;    0       While/EndWhile
  432. ;    16      If/Then or If/Then/Else
  433. ;    1       Select Case
  434. ;
  435. ;------------------------------------------------------------------------------
  436. ;                 AEGiS Corp - Break the routines, code against the machines!
  437. ;------------------------------------------------------------------------------
  438.